home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / dl_serie / updates / 095 / starfax / fddkit / fddkit.lst next >
File List  |  1995-11-25  |  957b  |  37 lines
  1. > PROCEDURE maus_form(y&)
  2.   ' etwas Mausspielrerei, kann auch weggelassen werden
  3.   ' in die INLINES MAUS1.INL ... MAUS4.INL einbinden.
  4.   LOCAL maus%
  5.   SELECT y&
  6.   CASE 0
  7.     INLINE maus%,74
  8.   CASE 1
  9.     INLINE maus%,74
  10.   CASE 2
  11.     INLINE maus%,74
  12.   DEFAULT
  13.     INLINE maus%,74
  14.   ENDSELECT
  15.   ~GRAF_MOUSE(255,maus%)
  16. RETURN
  17. > PROCEDURE sicher_seite(faxpage%,lines&)
  18.   LOCAL y&
  19.   '
  20.   ' hier SAVEPAGE.INL (mit HELP-Taste) einbinden
  21.   INLINE faxdrive%,2150
  22.   '
  23.   ' Rastergrafik aus Adresse faxpage% mit lines& Zeilen und
  24.   ' 256 Bytes/Zeile wird in 64 Zeilen große Stücke zerlegt und gesichert.
  25.   '
  26.   a$="BILD_"
  27.   ~C:faxdrive%(1,L:V:a$)  !FAX-Seite erstellen
  28.   ~C:faxdrive%(3)         !Titel einfügen
  29.   '
  30.   FOR y&=0 TO lines&-1 STEP 64
  31.     maus&=(maus&+1) AND 3
  32.     maus_form(maus&)
  33.     ~C:faxdrive%(2,L:faxbild%+y&*256,256,MIN(lines&-y&,64))   !Teil sichern
  34.   NEXT y&
  35.   ~C:faxdrive%(4)         !FAX-Seite abschließen.
  36. RETURN
  37.